home *** CD-ROM | disk | FTP | other *** search
/ Explorers of the New World / Explorers of the New World.iso / pc / exdata.dir / 00773_ET Cast Utilities.ls < prev    next >
Encoding:
Text File  |  1995-09-10  |  326 b   |  13 lines

  1. on getCastNames firstCast, lastCast
  2.   repeat with c = firstCast to lastCast
  3.     put the name of cast c & RETURN
  4.   end repeat
  5. end
  6.  
  7. on setCastFont firstCast, lastCast, theFont, theSize
  8.   repeat with c = firstCast to lastCast
  9.     set the textFont of field c to theFont
  10.     set the textSize of field c to theSize
  11.   end repeat
  12. end
  13.